Sub muestra_coleccion()
Dim colores As Collection
Set colores = New Collection
Dim color As Variant
    
colores.Add ("Blanco")
colores.Add ("Verde")
colores.Add ("Azul")
For Each color In colores
	Debug.Print color
Next color
End Sub
